This is METAFONT, WAITS Version -87.0 (INIMF)  13 APR 1984 15:34
**demo
(DEMO.MF[MF,DEK]
Calling INITSC:false
h=1; v=1;=>h=1; v=1;

 =>

z1=(6h,0);=>z1=(6h,0);

z2=(0,8v);=>z2=(0,8v);

z3=(4h,11v);=>z3=(4h,11v);

z4=(10h,8v);=>z4=(10h,8v);

z5=(17h,9v);=>z5=(17h,9v);

z6=(18h,2v);=>z6=(18h,2v);

 =>

draw z1..z2..z3..z4..z5..z6..cycle=>draw z1..z2..z3..z4..z5..z6..cycle

 ;=> ;
Tracing edges at line 12: (weight -1)
(2,10)(2,11)(6,11)(6,10)(7,10)(7,9)(9,9)(9,8)(13,8)(13,9)(18,9)(18,8)
(19,8)(19,3)(18,3)(18,1)(17,1)(17,0)(15,0)(15,-1)(8,-1)(8,0)(5,0)(5,1)
(3,1)(3,2)(2,2)(2,3)(1,3)(1,5)(0,5)(0,9)(1,9)(1,10).


display e on 1;=>display e on 1;

shipout e;=>shipout e;

 =>

e:=nulledges; numeric x[],y[]; % get ready for next demo=>e:=nulledges; numeric
 x[],y[]; % get ready for next demo

h:=3; v:=2;=>h:=3; v:=2;

 =>

z1=(6h,0);=>z1=(6h,0);

z2=(0,8v);=>z2=(0,8v);

z3=(4h,11v);=>z3=(4h,11v);

z4=(10h,8v);=>z4=(10h,8v);

z5=(17h,9v);=>z5=(17h,9v);

z6=(18h,2v);=>z6=(18h,2v);

 =>

z0=(9h,3v);=>z0=(9h,3v);

 =>

show z0,z1;=>show z0,z1;
(27,6)
! OK.
<recently read> ,
                 
p.4,l.12 show z0,
                 z1;
? h
This isn't an error message; I'm just showing something.

? ?
Type <return> to proceed, S to scroll future error messages,
R to run without stopping, Q to run quietly,
I to insert something, E to edit your file,
1 or ... or 9 to ignore the next 1 to 9 tokens of input,
H for help, X to quit.
? 
(18,0)
! OK.
<recently read> ;
                 
p.4,l.12 show z0,z1;
                    
? 

show z1+(1,1);=>show z1+(1,1);
(19,1)
! OK.
p.4,l.13 show z1+(1,1);
                       
? 

show z6-z5;=>show z6-z5;
(3,-14)
! OK.
<recently read> ;
                 
p.4,l.14 show z6-z5;
                    
? 

 =>

 =>

z1a-z0=2(z1-z0);=>z1a-z0=2(z1-z0);

z2a-z0=2(z2-z0);=>z2a-z0=2(z2-z0);

z3a-z0=2(z3-z0);=>z3a-z0=2(z3-z0);

z4a-z0=2(z4-z0);=>z4a-z0=2(z4-z0);

z5a-z0=2(z5-z0);=>z5a-z0=2(z5-z0);

z6a-z0=2(z6-z0);=>z6a-z0=2(z6-z0);

 =>

show z1a;=>show z1a;
(9,-6)
! OK.
<recently read> ;
                 
p.4,l.24 show z1a;
                  
? 

 =>

draw z1a..z2a..z3a..z4a..z5a..z6a..cycle;=>draw z1a..z2a..z3a..z4a..z5a..z6a..c
ycle;
Tracing edges at line 26: (weight -1)
(-22,33)(-22,34)(-21,34)(-21,35)(-19,35)(-19,36)(-17,36)(-17,37)(-13,37)
(-13,38)(-2,38)(-2,37)(2,37)(2,36)(5,36)(5,35)(7,35)(7,34)(10,34)(10,33)
(12,33)(12,32)(14,32)(14,31)(16,31)(16,30)(19,30)(19,29)(21,29)(21,28)
(24,28)(24,27)(28,27)(28,26)(39,26)(39,27)(43,27)(43,28)(46,28)(46,29)
(50,29)(50,30)(53,30)(53,31)(56,31)(56,32)(60,32)(60,33)(69,33)(69,32)
(72,32)(72,31)(74,31)(74,30)(76,30)(76,29)(77,29)(77,28)(78,28)(78,27)
(79,27)(79,26)(80,26)(80,25)(81,25)(81,23)(82,23)(82,21)(83,21)(83,18)
(84,18)(84,9)(83,9)(83,5)(82,5)(82,3)(81,3)(81,1)(80,1)(80,0)(79,0)
(79,-2)(78,-2)(78,-3)(77,-3)(77,-4)(76,-4)(76,-5)(75,-5)(75,-6)(74,-6)
(74,-7)(72,-7)(72,-8)(71,-8)(71,-9)(69,-9)(69,-10)(67,-10)(67,-11)(63,-11)
(63,-12)(58,-12)(58,-13)(42,-13)(42,-12)(35,-12)(35,-11)(29,-11)(29,-10)
(24,-10)(24,-9)(20,-9)(20,-8)(16,-8)(16,-7)(12,-7)(12,-6)(8,-6)(8,-5)
(4,-5)(4,-4)(1,-4)(1,-3)(-2,-3)(-2,-2)(-5,-2)(-5,-1)(-8,-1)(-8,0)(-10,0)
(-10,1)(-12,1)(-12,2)(-14,2)(-14,3)(-15,3)(-15,4)(-17,4)(-17,5)(-18,5)
(-18,6)(-20,6)(-20,7)(-21,7)(-21,8)(-22,8)(-22,9)(-23,9)(-23,10)(-24,10)
(-24,11)(-25,11)(-25,13)(-26,13)(-26,15)(-27,15)(-27,17)(-28,17)(-28,25)
(-27,25)(-27,27)(-26,27)(-26,29)(-25,29)(-25,31)(-24,31)(-24,32)(-23,32)
(-23,33).


erase z1..z2..z3..z4..z5..z6..cycle;=>erase z1..z2..z3..z4..z5..z6..cycle;
Tracing edges at line 27: (weight 1)
(2,19)(2,20)(3,20)(3,21)(6,21)(6,22)(14,22)(14,21)(17,21)(17,20)(19,20)
(19,19)(21,19)(21,18)(23,18)(23,17)(26,17)(26,16)(34,16)(34,17)(38,17)
(38,18)(42,18)(42,19)(50,19)(50,18)(52,18)(52,17)(53,17)(53,16)(54,16)
(54,15)(55,15)(55,13)(56,13)(56,7)(55,7)(55,5)(54,5)(54,3)(53,3)(53,2)
(52,2)(52,1)(51,1)(51,0)(50,0)(50,-1)(48,-1)(48,-2)(46,-2)(46,-3)(43,-3)
(43,-4)(33,-4)(33,-3)(27,-3)(27,-2)(23,-2)(23,-1)(19,-1)(19,0)(15,0)
(15,1)(12,1)(12,2)(10,2)(10,3)(8,3)(8,4)(6,4)(6,5)(4,5)(4,6)(3,6)(3,7)
(2,7)(2,8)(1,8)(1,10)(0,10)(0,17)(1,17)(1,19).


 =>

display e on 1;=>display e on 1;

def demochar(expr h,v)==>def demochar(expr h,v)=

e:=nulledges;=>e:=nulledges;

numeric x[],y[],x[]a,y[]a;=>numeric x[],y[],x[]a,y[]a;

charcode:=charcode+1;=>charcode:=charcode+1;

 =>

z1=(6h,0);=>z1=(6h,0);

z2=(0,8v);=>z2=(0,8v);

z3=(4h,11v);=>z3=(4h,11v);

z4=(10h,8v);=>z4=(10h,8v);

z5=(17h,9v);=>z5=(17h,9v);

z6=(18h,2v);=>z6=(18h,2v);

 =>

z0=(9h,3v);=>z0=(9h,3v);

 =>

for n:=1 step 1 until 6:=>for n:=1 step 1 until 6:

 z[n]a-z0 = 2(z[n]-z0);=> z[n]a-z0 = 2(z[n]-z0);

endfor=>endfor

 =>

draw z1a..z2a..z3a..z4a..z5a..z6a..cycle;=>draw z1a..z2a..z3a..z4a..z5a..z6a..c
ycle;

erase z1..z2..z3..z4..z5..z6..cycle;=>erase z1..z2..z3..z4..z5..z6..cycle;

 =>

display e on 1;=>display e on 1;

 =>

charwd:=40h/hppp;=>charwd:=40h/hppp;

chardw:=40h;=>chardw:=40h;

shipout e;=>shipout e;

 =>

enddef;=>enddef;

tracingedges:=1;=>tracingedges:=1;

demochar(1,1);=>demochar(1,1);
! Some data in e was never used.
demochar->e:=nulledges;
                       numeric.x[],y[],x[]a,y[]a;charcode:=charcode+1...
p.6,l.2 demochar(1,1)
                     ;
? h
Next time please `shipout' or `display' or `cull'
an edges variable before you dispense with it.

? 
Tracing edges at line 2: (weight -1)
(-6,17)(-6,18)(-4,18)(-4,19)(1,19)(1,18)(3,18)(3,17)(4,17)(4,16)(6,16)
(6,15)(7,15)(7,14)(9,14)(9,13)(16,13)(16,14)(19,14)(19,15)(25,15)(25,14)
(27,14)(27,13)(28,13)(28,11)(29,11)(29,4)(28,4)(28,1)(27,1)(27,0)(26,0)
(26,-1)(25,-1)(25,-2)(23,-2)(23,-3)(21,-3)(21,-4)(18,-4)(18,-5)(8,-5)
(8,-4)(4,-4)(4,-3)(1,-3)(1,-2)(-1,-2)(-1,-1)(-2,-1)(-2,0)(-4,0)(-4,1)
(-5,1)(-5,2)(-6,2)(-6,3)(-7,3)(-7,5)(-8,5)(-8,7)(-9,7)(-9,14)(-8,14)
(-8,16)(-7,16)(-7,17).

Tracing edges at line 2: (weight 1)
(2,10)(2,11)(6,11)(6,10)(7,10)(7,9)(9,9)(9,8)(13,8)(13,9)(18,9)(18,8)
(19,8)(19,3)(18,3)(18,1)(17,1)(17,0)(15,0)(15,-1)(8,-1)(8,0)(5,0)(5,1)
(3,1)(3,2)(2,2)(2,3)(1,3)(1,5)(0,5)(0,9)(1,9)(1,10).


tracingedges:=0;=>tracingedges:=0;

demochar(2,1);=>demochar(2,1);

demochar(1,2);=>demochar(1,2);

demochar(10,10);=>demochar(10,10);

demochar(10,-10);=>demochar(10,-10);

end=>end
Output written on DEMO.GF[MF,DEK] (6 characters, 3316 bytes).